RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 
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RRRRRRRR MM MM 000000 FFFFFFFFFE AAAAAA BBBBBBBB CCCCCCCC «OHH HH KK KK 

RRRRRRRR MM MM 000000 FFFFFFFFFF AAAAAA BEBBBBBB Cccccccc HH HH KK KK 

RR RR MMMM MMMM 00 00 FF AA AA BB BB CC HH HH KK KK 

RR RR MMMM MMMM 00 0O FF AA AA 8B BB CC HH HH KK KK 

RR RR MM MM MM «(00 0000 FF Ab AA BB BB CC HH HH KK KK 

RR RR MM MM MM «(00 0000 FF AA AA 6B BB CC HH HH KK KK 

RRRRRRRR MM mM 00 00 OO FFFFFFFF aa AA 88888888 cc HHHHHHHHHH =KKKKKK 

RRRRRRRR “iM mM 00 00 OO FFFFFFFF AA AA BB8BBBBBB cc HHHHHHHHHH = KKKKKK 

RR RR MM mM 0000 0O FF AAAAAAAAAA §BB BB CC HH HH KK KK 

RR RR MM mm 0000 0O FF AAAAAAAAAA BB BB CC HH HH KK KK 

RR R MM mm 00 0O FF AA AA BB BB CC HH HH KK KK cece 
RR RR MM MM 00 00 FF AA AA 6B BB SCC HH HH KK KK cece 
RR RR MM MM 000000 FF AA AA B8BB8B8BB cccccccc HH HH KK KK eoee 
RR RR MM MM 000000 FF AA AA B8BBBBBBB cccccccc =H HH KK KK cece 
LL IIIIII SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL 111! SSSSSSSS 
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04-000 mei TTS ak ets a Aas 8 


SBEGIN RMOFABCHK,000,RMS$RMSO,<COMMON FAB CHECKING> 


ooo 
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L 
S NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: rms32 


Abstract: 


this routine performs common fab call argument 
List and fab validation. 
Environment: 
star processor running starlet exec. 
Author: L F Laverdure, creation date: 4-JAN-1977 
Modified By: 
V¥03-004 DGB0043 Donald G. Blair 02-May-1984 
If the PIOSV_INHAST bit is set when we start an 


OOSOCoCCOOCSCSOSCOSOSOSOSSOSOSOSOSOOSOSOOOOOOCOSOOOCOOOOOOOSOSoO 


OOOO COCOCSOOSOOSOOOOSOSOOOOOOOOOOSOOOSOSOOSOOSOSOOOOOOOSOOOSOOOOOOOO 


RMS operation, we conclude that the caller must be 
at exec AST level or higher and that he would break 
RMS synchronization rules if allowed to continue. 
Return Error. 


v03-003 RASO171 Ron Schaefer 19-Jul-1983 
Change RASOQ162 to a new specific structure-less 
err 


Pa fe | we we fe | we ae ee we we we ww www lol wlalolelolololelololeloleololelolololololololololololela lo) 
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NOU EWR 0 OO NA EWI 0 OO NAME WIN SO OD NAME WIN 2 O OO NA UE WW - OOONOUE Ww 


v03-002 RASO162 Ron Schaefer 17-Jun-1983 
Detect and report the AST/non-AS! caller's mode 
wait mene condition, by checking the low bit of the 
FAB's BLN field. 


COOOOOCOCOCOCOOSOOSCOSOOOOOCOOOOOOOOOOOOCOOOOCOCOO OOOO OOO OOOO OOOOOOOOoOO 
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Beet 90:31:08 YRMS SRCIRMOFABCHK MAR: 1 _ dy 
38 : v03-001 KBT0206 Keith B. Thompson 23-Aug-1982 
2 : Reorganize psects 
61 : v007 REFORMAT Ken Henderson 29-JUL-1980 15:42 | 
? 3 code was reformatted 
0 64 t-- 
00 65 


ues Macro V04-00 
RMS.SRCJRMOF ABCHK .MAR; 1 
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~SBTTL RMSFABCHK = COMMON ARGLIST AND FAB VALIDATION ROUTINE 


RMOF ABCHK 
v04-00 


++ 
RMS$F ABCHK 
this routine performs the following functions: 


1. setup ri1 to point to the image i/o impure area 
(it may be ae eg in fset to the process i/o impure area) 
- check argument list for accessibility and validity 
- check fab for accessibility and validity 
. set r8 to address of fab 
. clear sts and stv 
- inhibit rms internal asts 
- set r9 to the value of ifi 


NOUS wr 


Calling sequence: 
bsbw rm$fabchk 
; Input Parameters: 


ap arglist addr 
; Implicit Inputs: 


: the contents of the arglist and the bid, bln, and ifi fields 
; of the fab. 


; Output Parameters: 


rij impure area address 
r9 ifi value 

r8 fab address 

r7 mode of caller 


; Implicit Outputs: 
the sts and stv fields of the fab are zeroed. 


SOOQoooooooooooooooooooooooooooooooooooooooo 
SOOOCoCC COCO OCCOCSOOCSOSOCOOCOOCOOOOOCOOOCOOOOOOOOOOOOOOO 


SOOCOSOSOSOCOSOCSOCOCOOCOCOOCOCOSSC SOS OOSOOSOOOOCOCOOCOOCOOOOOOOoOO 


S 


Completion Codes: | 
z-bit set if ifi = zero, else clear. | 
if any errors, the rms error code is set into r0 
and return is made to the user (not caller). 
Side Effects: 


rms internal asts are inhibited. 


PEE FANNIN AWINIGIDIDIPINPIPIPINPIPINIDYD 2 2 9 OP OP HS MH DOOOOOOOCOCOCWOVOOOOOOOO 
FPWR 0 OONOAUE AN OOO NAU ES WIN 9 OONOAU EWN OO ONAU EWN O ODNOU ES Wwino— 


COOCOCCOOCOCOOSOSCOSCOOSCOOOOSOOSOOSOSOSOOOOCOO OOOO OOCOOOOOOO: 
atatatatadabubadabaduabaimbadbaimabebubuabaichababuababahabaiababahabeiubabababuababababuabaad 


SoOoooooooooo 
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v04-000 RMSFABCHK = COMMON ARGLIST AND FAB VALID : SEP} 984 98:3) 22 ERMS. SRCIRMOFABCHK.MAR; 1 a a 


: set up pointer to impure area based on the mode of the caller 


RMSFABCHK: : 
MOVPSL R11 : get gst 
EXTZV  #PSLS$V_PRVMOD,#PSL$S_PRVMOD,R11,R7 
3 extract the previous mode 
MOVAL a@#PIOSGW_IIOIMPA,R11 ; image io impure area addr 


5B OO 
eee vel 


5B Q0000000'9F ODE 
3; perform accessibility checks 


58 04 AC 0O et fab address 


R8) ,ERRFAB : ab writeable? 

03 6 
50 8F 01 ‘ 
A 


10 01 LNCR8) ,ERRACT ; is this FAB busy? 


3; continue if not 
3 zero the sts and stv fab fields 


ASSUME FABSL_STS+4 EQ FABSL_STV 
CLRQ  -FABSL~STS(R8) 


Disable AST's. If the PIOS$V_INHAST bit is etyeady set, we 
conclude that the caller must be at exec ast level or higher 
(otherwise, he could not have kicked off an RMS operation 
while RMS was already in progress) and would break RMS 
synchronization rules if allowed to continue. Return RMS$_BUSY 
status when this happens. 


BBSS #PIO$V_INHAST,- 3 set inhast bit. err if already set. 
a#Plo$Gw_ STATUS, ERRACT 


00 
05 00000000' 9F 
59 02 AB MOVZUL FABSW_IFI(R8) RO : set r9 = ifi value 


an error has occurred in validating the argument List or fab 


since an error code cannot be safely stored in the fab, 
no attempt to generate an err= ast will be made. 
r0 will be set to the appropriate error code and an 


8 

F D ; is it a fab? 

BLN(R8) ,#FABSC_BLN; is it long enough? 

B 
| 
| 
| 
| 

exception, if enabled, will be generated upon ret. 


0 
Q 
Q 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
08 As 7C 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 
0 
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RMOF ABCHK COMMON FAB CHECKING Ten $66- 138% 90:81:08 AX/VMS Macro V04-00 Page 
v04-000 RMSFABCHK = COMMON ARGLIST AND FAB VALID 5-SEP-1984 16:21:44 CRMS.SRCIRMOFABCHK.MAR;1 
9 A 3 ERRACT: 
A 4 RMSERR BUSY ; Syncrhonization problem 

|: - o44 5 BRB BASIC_ERR $ 
41 : ERRBLN: 

4) 08 RMSERR BLN ; invalid block length $ 

oS r 4 BRB BASIC_ERR HH 

Bee 11 ERRFAB: FC 

04 \¢ RMSERR FAB 3; invalid fab FC 

004D 1 Fl 

th 14 BASIC_ERR: Fu 

04D 15 SSB #16,R0 3 prefix the facility code IF 

0051 16 3 se. to the error code IF 

04 0051 21 RET : and return to caller IF 

$028 si§ IF 

005 19 ~END Hi 

IR 

IR 

IR 


ae 


Ql 
QI 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
Ql 
" 
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:02 VAX/VMS Macro V04-00 Page 7 
Symbol table 244 4 


RMS .SRCIRMOF ABCHK.MAR; 1 (5) 


] 
| 
$$.PSECT_EP = 00000 90 
SSRMSTEST = 00 8 A 
SSRMS_PBUGCHK = 8 48 
SSRMS_TBUGCHK = 0 8 | 
SSRMS_UMO = 000 4 | 
BASIC_ERR 000004D R 01 
ERRACT Q000003A R 01 
ERRBLN 4444 41 R 01 
ERRFAB 0000 ae R 01 
FABSB_BI1D = 0000000 
FARE at = $3338 
FABSC~BLN = $o0000%0 
FABSL_STS = 00000008 
FABSL_STV = SS o eS 
FABSW_IFI = 0000000 
P10$GQ_I1OIMPA eeeeeere =X 01 
P10$GW_STATUS eeeeeeee = X 01 
P1O$V_TNHAST = 00000000 
PSL$S_PRVMOD = 00000002 
PSL$V_PRVMOD = 00000016 
RMSF ABCHK 00000000 RG 01 
RMS$_BLN = 0001842C 
RMS$_BUSY = 0001848C 
RMS$_FAB = 0001850C¢ 
wen een m enema ane + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 00000052 ( 82.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 < 0.) 02 NOP IC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
perenne eee ence cen eee + 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 00:00:01.21 
yp eee 208 ——-00:00:04266  90:00:18.08 
Symbol table sort <9 00: a 00:89:00:83 
ass 00:01. :00:02. 
Symbol table output 5 00:00:00.05 00:00:00.37 
Se ee me 
Asseabler run totals 410 $0:00; 6.9 0:00:26.28 


The working set Limit was 1350 pages. 

24174 bytes_(48 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 455 non-local and 1 local symbols. 
9 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 
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Prema me nora mance ee ee em ce me a ap ee 


! ; Macro Library statistics ! 


eececee sngecenureneeessanaenad 


Macro Library name Macros defined 
Bette RMS .OBJ ey RT 1 7 
~$255$DUA28:CSYS.OBJJLIB.MLB; 1 1 
“$255$DUA28: SySCIBISTARLET. MLB;2 5 

TOTALS (all Libraries) 13 


558 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMOF ABCHK/OBJ=0BJ$:RMOFABCHK MSRC$:RMOUF ABCHK/UPDATE=(ENHS: RMOF ABCHK) +EXECML$/LIB+LIB$:RMS/LIB 


ENT CORPORATION 
AND PROPRIETARY 


